home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / comm / signit.zip / SIGNIT.SLT < prev   
Text File  |  1980-01-01  |  2KB  |  33 lines
  1. ///////////////////////////////////////////////////////////////////////
  2. //                                                                   //
  3. //  [ SIGNIT ]                                                       //
  4. //                                                                   //
  5. //  Written By:  Ulli Hernando                                       //
  6. //                                                                   //
  7. //  This script is used to send (upload) a signature-file            //
  8. //  via 'A'scii file transfer protocol from within Telix 3.12        //
  9. //  by either a macro-key (for a single key-press) or                //
  10. //  by ALT-G (script executer).   This routine assumes the           //
  11. //  signature-file 'SIG.TXT' is in the Script Directory (TELIX).     //
  12. //                                                                   //
  13. ///////////////////////////////////////////////////////////////////////
  14.  
  15. main()
  16. {
  17.    int result;                     // declare integer for checking
  18.    str up_dir_[64];                // declare temporary upload dir
  19.    up_dir_  = _up_dir;             // retains current upload directory
  20.    _up_dir = _script_dir;          // assumes (SIG.TXT) is in Script Dir.
  21.    result = send('A', "SIG.TXT");  // sends Signature-file (SIG.TXT)
  22.    if (result < 0)                 // check for error in upload
  23.      prints("<Signature Transfer Failed>");
  24.    _up_dir = up_dir_;              // restores original _up_dir
  25. }
  26.  
  27. ///////////////////////////////////////////////////////////////////////
  28. //                                                                   //
  29. //  You can contact me at: 4224_5122@uwovax.bitnet (until May 1991)  //
  30. //                                                                   //
  31. //  Please delete this Comment Window after May, 1991.               //
  32. //                                                                   //
  33. ///////////////////////////////////////////////////////////////////////